      MODULE employv2kp_c3
      USE employv2kp_c1
      CONTAINS
      SUBROUTINE SSCTRI(MMNST,SSZ,CSNO,
     *  DRCMEM,RCMEM,DICMEM,ICMEM,ERRMES)
      INTEGER CSNO,MMNST,SSZ(MMNST)
      INTEGER DRCMEM,DICMEM,ICMEM(DICMEM)
      REAL RCMEM(DRCMEM)
      CHARACTER*(*) ERRMES
      CHARACTER*10 SUBNAM
      PARAMETER(SUBNAM='SSCTRI')
      IF(CSNO.EQ.1) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  C00001,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.2) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  C00002,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.3) THEN
       CALL GPEQR7(SSZ(2),1,1,1,1,1,1,
     *  C00003,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.4) THEN
       CALL GPEQR7(SSZ(3),1,1,1,1,1,1,
     *  C00004,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.5) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  C00005,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.6) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  C00006,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.7) THEN
       CALL GPEQR7(SSZ(1),1,1,1,1,1,1,
     *  C00007,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.8) THEN
       CALL GPEQR7(SSZ(1),SSZ(2),1,1,1,1,1,
     *  C00008,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.9) THEN
       CALL GPEQR7(SSZ(1),SSZ(2),1,1,1,1,1,
     *  C00009,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.10) THEN
       CALL GPEQR7(SSZ(2),SSZ(1),1,1,1,1,1,
     *  C00010,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.11) THEN
       CALL GPEQR7(SSZ(3),SSZ(1),1,1,1,1,1,
     *  C00011,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.12) THEN
       CALL GPEQR7(SSZ(3),SSZ(1),1,1,1,1,1,
     *  C00012,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.13) THEN
       CALL GPEQR7(SSZ(2),1,1,1,1,1,1,
     *  C00013,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.14) THEN
       CALL GPEQR7(SSZ(2),1,1,1,1,1,1,
     *  C00014,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.15) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  C00015,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.16) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  C00016,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.17) THEN
       CALL GPEQR7(SSZ(1),1,1,1,1,1,1,
     *  C00017,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.18) THEN
       CALL GPEQR7(SSZ(1),1,1,1,1,1,1,
     *  C00018,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.19) THEN
       CALL GPEQR7(SSZ(1),1,1,1,1,1,1,
     *  C00019,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.20) THEN
       CALL GPEQR7(SSZ(1),SSZ(2),1,1,1,1,1,
     *  C00020,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.21) THEN
       CALL GPEQR7(SSZ(1),SSZ(2),1,1,1,1,1,
     *  C00021,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.22) THEN
       CALL GPEQR7(SSZ(1),SSZ(2),1,1,1,1,1,
     *  C00022,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.23) THEN
       CALL GPEQR7(SSZ(1),SSZ(2),1,1,1,1,1,
     *  C00023,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.24) THEN
       CALL GPEQR7(SSZ(2),SSZ(1),1,1,1,1,1,
     *  C00024,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.25) THEN
       CALL GPEQR7(SSZ(1),1,1,1,1,1,1,
     *  C00025,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.26) THEN
       CALL GPEQR7(SSZ(1),1,1,1,1,1,1,
     *  C00026,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.27) THEN
       CALL GPEQR7(SSZ(3),SSZ(1),1,1,1,1,1,
     *  C00027,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.28) THEN
       CALL GPEQR7(SSZ(1),1,1,1,1,1,1,
     *  C00028,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.29) THEN
       CALL GPEQR7(SSZ(1),1,1,1,1,1,1,
     *  C00029,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.30) THEN
       CALL GPEQR7(SSZ(1),1,1,1,1,1,1,
     *  C00030,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.31) THEN
       CALL GPEQR7(SSZ(1),1,1,1,1,1,1,
     *  C00031,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.32) THEN
       CALL GPEQR7(SSZ(1),1,1,1,1,1,1,
     *  C00032,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.33) THEN
       CALL GPEQR7(SSZ(1),1,1,1,1,1,1,
     *  C00033,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.34) THEN
       CALL GPEQR7(SSZ(1),1,1,1,1,1,1,
     *  C00034,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.35) THEN
       CALL GPEQR7(SSZ(3),SSZ(1),1,1,1,1,1,
     *  C00035,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.36) THEN
       CALL GPEQR7(SSZ(3),SSZ(1),1,1,1,1,1,
     *  C00036,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.37) THEN
       CALL GPEQR7(SSZ(3),SSZ(1),1,1,1,1,1,
     *  C00037,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.38) THEN
       CALL GPEQR7(SSZ(3),SSZ(1),1,1,1,1,1,
     *  C00038,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.39) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  C00039,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.40) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  C00040,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.41) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  C00041,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.42) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  C00042,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.43) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  C00043,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.44) THEN
       CALL GPEQR7(SSZ(2),1,1,1,1,1,1,
     *  C00044,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.45) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  C00045,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.46) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  C00046,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.47) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  C00047,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.48) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  C00048,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.49) THEN
       CALL GPEQR7(SSZ(2),1,1,1,1,1,1,
     *  C00049,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.50) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  C00050,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.51) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  C00051,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.52) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  C00052,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.53) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  C00053,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.54) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  C00054,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.55) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  C00055,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.56) THEN
       CALL GPEQR7(SSZ(2),1,1,1,1,1,1,
     *  C00056,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.57) THEN
       CALL GPEQR7(SSZ(2),1,1,1,1,1,1,
     *  C00057,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.58) THEN
       CALL GPEQR7(SSZ(3),1,1,1,1,1,1,
     *  C00058,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.59) THEN
       CALL GPEQR7(SSZ(3),1,1,1,1,1,1,
     *  C00059,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.60) THEN
       CALL GPEQR7(SSZ(1),1,1,1,1,1,1,
     *  C00060,RCMEM,ERRMES)
      ELSE IF(CSNO.EQ.61) THEN
       CALL GPEQR7(SSZ(1),1,1,1,1,1,1,
     *  C00061,RCMEM,ERRMES)
      ELSE
       ERRMES='E-Unexpected CSNO'
       GOTO 15500
      END IF
      IF(ERRMES(1:1).EQ.'E') GOTO 15000
      RETURN
15000 CONTINUE
      CALL PERET(SUBNAM)
      RETURN
15500 CONTINUE
      CALL PERETM(SUBNAM,ERRMES)
      RETURN
      END SUBROUTINE SSCTRI
      END MODULE employv2kp_c3
